#!/usr/bin/perl

# 定义一个数组包含一些单词
my @words = ("Apple", "Banana", "Cherry", "Date", "Elderberry", "Fig", "Grape", "Honeydew", "Ice-cream", "Jackfruit");

# 打开文件以写入
open(FILE, ">", "your_file.txt") or die "Could not open file: $!";

# 写入每个单词
foreach my $word (@words) {
    print FILE "$word\n";
}

# 关闭文件
close(FILE);

# 打开文件
open(FILE, "<", "your_file.txt") or die "Could not open file: $!";

# 读取文件的每一行
while (<FILE>) {
    # 如果行号在3到5之间，打印行号和行内容
    if ($. == 3 .. $. == 5) {
        print "Line $.: $_";
    }
}

# 关闭文件
close(FILE);

# shift：这是一个Perl内置函数，它用于移除并返回数组的第一个元素。
# 在函数中，如果没有指定数组，那么shift将默认操作@_数组，这个数组包含了函数的参数
# 定义一个函数
sub greet {
    my $name = shift // 'World';
    print "Hello, $name!\n";
}

# 调用函数，不提供参数
greet();

# 调用函数，提供参数
greet("Perl");

# 定义一个字符串
$_ = "Hello, Perl!";

# 使用正则表达式检查$_是否包含"Perl"
if (/Perl/) {
    print "The string contains 'Perl'.\n";
} else {
    print "The string does not contain 'Perl'.\n";
}